library(tidyverse)
library(ragg)

lat_robust_csv <- read_csv("./Data/ML Prediction/Scores/lat_split.csv")

agg_png("./Figures/Figure-A-7-Out-of-Sample-Lat.png", 
        width = 7, height = 4, 
        units = "in", res = 300)
print(
lat_robust_csv %>% 
  ggplot() +
  geom_point(aes(sample_included, scores)) +
  ylim(0,1) + 
  labs(title = "Out of Sample Geographic Accuracy", 
       subtitle = "Latitude-split geographic cross validation",
       x = "Size of CV fold sample", 
       y = "Accuracy")
)

dev.off()
